Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  914 1828 (N40E40 L=346)   534     27        1 ( 889/1805- 939/1851)  71.6 E43-E37 N38-N42
      2  520 1605 (N14E51 L=335)  2089    305        3 ( 478/1481- 560/1757) -51.3 E62-E46 N05-N25
      3  431 1604 (N12E59 L=327)   640     73        1 ( 417/1564- 452/1650) -50.2 E63-E55 N09-N15
      4 1335 1544 (N34W03 L= 29)   983    144        3 (1303/1476-1368/1625) -63.4 E01-W06 N29-N39
      5  572 1482 (N08E41 L=345)  2163    363        6 ( 452/1402- 706/1575)  55.5 E47-E35 N00-N16
      6  199 1282 (S11E67 L=319)  1415    145        2 ( 124/1249- 243/1329)  14.7 E83-E62 S13-S07
      7 1285 1167 (N09W10 L= 36)   241     73        1 (1272/1128-1297/1202) -68.2 W09-W11 N06-N11
      8  391 1138 (S16E43 L=343)   261     66        0 ( 370/1115- 410/1169)  76.0 E44-E41 S17-S13
      9  167  979 (S30E66 L=320)  2237    209        4 ( 112/ 893- 213/1062)  30.1 E80-E58 S35-S24
     10  701  801 (S27E13 L= 13)   874    232        3 ( 597/ 765- 803/ 851)  39.8 E19-E07 S32-S22
     11 1351  734 (S12W27 L= 53)   360    149        1 (1282/ 702-1427/ 766)  16.7 W22-W32 S13-S10
     12 1210  593 (S24W25 L= 51)   483    202        1 (1123/ 552-1293/ 606)  14.0 W19-W31 S26-S21
     13 1494  553 (S17W45 L= 71)  1277    223        0 (1401/ 519-1600/ 600)  48.0 W39-W50 S21-S11
     14 1085  430 (S38W26 L= 52)  1455    311        2 ( 976/ 355-1203/ 489)  69.4 W20-W30 S46-S30
     15 1315  399 (S31W42 L= 68)   284     77        0 (1283/ 378-1354/ 424)  68.2 W41-W43 S33-S28
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y