Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1580 1292 (N19W39 L=258)   367     96        2 (1543/1264-1614/1321)   9.5 W35-W41 N17-N21
      2 1086 1254 (N18W04 L=223)  1000    246        5 (1015/1187-1188/1318) -35.0 W00-W10 N13-N22
      3 1669 1194 (N13W45 L=264)  1503    405        4 (1568/1115-1735/1314)  50.2 W37-W52 N08-N20
      4  206 1155 (N10E62 L=157)  1138    200        1 ( 172/1093- 229/1220)  90.0 E67-E59 N06-N14
      5 1797 1117 (N07W56 L=276)   488     79        1 (1766/1089-1820/1141) -21.8 W53-W59 N05-N08
      6  535  942 (S02E32 L=187)  1111    250        4 ( 456/ 910- 645/1005)  -8.7 E37-E23 S03-N01
      7 1906  840 (S11W72 L=291)  1493    183        2 (1890/ 779-1921/ 902) -69.4 W69-W76 S14-S06
      8 1620  707 (S17W42 L=261)  1331    390        3 (1557/ 524-1669/ 840)  87.3 W39-W44 S29-S08
      9 1298  768 (S13W17 L=236)   566    158        2 (1226/ 715-1359/ 814)  32.0 W12-W21 S15-S09
     10  229  659 (S21E63 L=156)  4535    542       10 ( 159/ 528- 312/ 768) -90.0 E72-E55 S30-S14
     11 1470  724 (S16W29 L=249)   277     99        1 (1431/ 670-1513/ 768)  50.2 W27-W32 S19-S12
     12  316  697 (S18E52 L=167)   610    154        3 ( 281/ 660- 346/ 732)  51.3 E55-E48 S20-S15
     13  879  657 (S20E10 L=209)   380    140        1 ( 842/ 609- 911/ 710) -71.6 E12-E07 S22-S15
     14  495  452 (S35E43 L=176)   523    118        1 ( 473/ 405- 516/ 493)  74.1 E45-E41 S38-S31
     15 1229  387 (S40W16 L=235)   421     71        1 (1196/ 370-1270/ 407)   9.5 W13-W19 S41-S38
  

    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