Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1341 1823 (N42W63 L=171)   493     57        0 (1328/1791-1352/1856)  20.0 W58-W70 N39-N43
      2 1474 1520 (N21W44 L=152)   327     74        1 (1442/1493-1504/1541)   0.0 W41-W47 N18-N21
      3 1451 1445 (N17W39 L=147)   261     77        0 (1435/1403-1473/1483)  59.0 W37-W40 N14-N19
      4  259 1296 (N41E55 L= 53)   701    116        0 ( 246/1236- 272/1361) -82.9 E56-E52 N37-N45
      5  490 1080 (N23E32 L= 76)   825    217        1 ( 404/ 997- 572/1147) -53.1 E38-E27 N16-N28
      6  220 1034 (N26E58 L= 50)   899    125        3 ( 169/1008- 266/1068)   4.8 E65-E52 N24-N27
      7  264  975 (N21E54 L= 54)   547     91        2 ( 243/ 937- 283/1020)  53.1 E56-E51 N18-N23
      8 1611  960 (S14W33 L=141)   889    224        1 (1501/ 910-1691/1009)  -3.6 W24-W40 S15-S12
      9 1842  965 (S22W54 L=162)   848    106        1 (1810/ 915-1870/1006)  20.6 W50-W58 S23-S18
     10  243  913 (N18E57 L= 51)  1011    198        2 ( 197/ 833- 296/ 977) -68.2 E62-E52 N12-N22
     11 1353  606 (S27W08 L=116)   779    265        0 (1285/ 511-1402/ 734)  42.5 W01-W14 S31-S19
     12 1769  631 (S41W45 L=153)  1531    195        1 (1697/ 580-1842/ 711)  12.5 W36-W55 S43-S38
     13 1176  588 (S22E03 L=104)   986    359        0 (1039/ 493-1286/ 698)  16.7 E14-W06 S26-S18
     14  976  397 (S29E22 L= 86)   409    123        0 ( 946/ 343-1002/ 456)  41.2 E26-E18 S32-S25
     15  484  342 (S21E63 L= 45)   663     42        1 ( 461/ 316- 509/ 369)  11.3 E68-E58 S22-S19
  

    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