Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1169 1763 (N55W16 L=137)   524     94        1 (1127/1729-1216/1779)   0.0 W11-W21 N51-N56
      2  542 1453 (N30E36 L= 85)  1104    235        2 ( 464/1368- 631/1518) -29.1 E45-E27 N24-N34
      3 1348 1441 (N29W23 L=144)   862    192        1 (1260/1414-1437/1464)  -8.7 W16-W30 N27-N31
      4  830 1335 (N23E13 L=108)   252    107        0 ( 778/1319- 881/1348)   8.1 E16-E09 N21-N23
      5 1331 1107 (N08W19 L=140)   305     96        0 (1287/1074-1365/1137) -38.7 W16-W21 N06-N10
      6  251  959 (S02E55 L= 66)   387     64        0 ( 239/ 917- 270/ 991) -90.0 E56-E53 S04-N00
      7  713  922 (S03E19 L=102)   444    162        3 ( 636/ 880- 771/ 978)  24.0 E24-E15 S05-N00
      8 1271  864 (S06W15 L=136)   219     69        0 (1242/ 831-1289/ 892) -53.1 W13-W16 S08-S04
      9  258  847 (S09E55 L= 66)   345     59        0 ( 234/ 820- 280/ 877)  38.7 E58-E52 S10-S06
     10 1743  613 (S24W57 L=178)  1589    245        0 (1716/ 495-1790/ 722) -59.5 W54-W66 S33-S16
     11 1587  608 (S24W41 L=162)   518    106        0 (1548/ 558-1630/ 652)  50.2 W38-W43 S27-S20
     12 1141  606 (S23W08 L=129)   314    115        0 (1083/ 592-1195/ 621)   0.0 W03-W11 S23-S21
     13  849  377 (S40E14 L=107)  1000    177        3 ( 784/ 337- 929/ 427)  33.7 E19-E07 S43-S35
     14 1078  200 (S58W06 L=127)   524     83        1 (1040/ 178-1108/ 229) -14.0 W01-W09 S60-S54
  

    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