Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1615 (N40E09 L=300)  5773   1041       12 ( 549/1492-1440/1760)  -7.3 E58-W28 N32-N47
      2 1568 1435 (N31W38 L=347)   945    175        2 (1510/1372-1630/1491) -41.2 W33-W42 N27-N35
      3  557 1375 (N20E35 L=274)   575    102        3 ( 536/1328- 581/1429) -63.4 E36-E32 N17-N23
      4  317 1378 (N18E56 L=253)  1214    120        4 ( 257/1341- 367/1422)  15.3 E62-E50 N15-N20
      5 1296 1327 (N22W16 L=324)   372    153        0 (1269/1265-1342/1398) -63.4 W13-W18 N18-N26
      6 1390 1316 (N22W22 L=331)   296     97        0 (1377/1268-1401/1368)  90.0 W21-W23 N19-N25
      7 1823 1245 (N20W60 L=  9)   466     34        1 (1804/1222-1840/1277) -90.0 W57-W62 N18-N22
      8  512 1118 (N04E34 L=275)  1261    259        1 ( 485/1005- 554/1241)  90.0 E35-E30 S03-N11
      9 1837 1054 (N08W60 L=  8)   361     67        0 (1816/1017-1854/1080) -36.9 W57-W61 N05-N09
     10  381 1001 (S04E43 L=266)   338     70        1 ( 347/ 981- 419/1016)   9.5 E45-E39 S05-S02
     11 1812  919 (S00W58 L=  6)   422     53        1 (1784/ 903-1837/ 935)   0.0 W54-W60 S01-N00
     12  746  739 (S18E16 L=293)   491    183        1 ( 659/ 709- 816/ 788) -16.7 E21-E11 S19-S14
     13  536  668 (S24E31 L=277)   470    111        1 ( 490/ 637- 591/ 707)  33.7 E35-E26 S26-S20
     14 1394  579 (S24W29 L=337)  3127    656        6 (1115/ 468-1658/ 707)  26.6 W10-W46 S32-S13
     15 1050  451 (S35W07 L=315)   232     29        1 (1033/ 434-1070/ 477)  71.6 W05-W08 S36-S33
  

    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