Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1578 (N31W30 L=168)  1170    189        0 (1321/1511-1477/1640) -48.4 W25-W34 N25-N35
      2  792 1521 (N29E13 L=125)   937    207        2 ( 721/1474- 900/1578) -28.3 E19-E06 N25-N33
      3  614 1381 (N21E25 L=113)   837    276        0 ( 559/1262- 675/1488) -56.3 E30-E20 N13-N28
      4 1755 1418 (N19W56 L=194)   434     96        1 (1731/1375-1783/1459)  68.2 W53-W58 N16-N21
      5  509 1419 (N24E33 L=105)   243     94        1 ( 474/1397- 547/1435)   0.0 E35-E30 N22-N25
      6 1243 1248 (N10W14 L=152)   198     78        0 (1216/1212-1263/1284)  59.0 W12-W15 N07-N12
      7  633 1186 (N09E23 L=115)   346    109        0 ( 607/1128- 651/1242)  74.1 E25-E22 N05-N12
      8 1585 1132 (N02W36 L=174)   534    123        0 (1531/1100-1650/1154)   0.0 W31-W40 N00-N03
      9 1733 1085 (S01W47 L=185)   708    176        0 (1674/1008-1758/1131) -50.2 W42-W49 S05-N01
     10 1617 1006 (S06W38 L=176)   358     91        0 (1571/ 970-1650/1038) -38.7 W34-W40 S07-S03
     11  281  870 (S08E52 L= 86)  2021    348        8 ( 222/ 796- 415/1007) -33.7 E57-E40 S11-N00
     12  330  936 (S04E46 L= 92)   417     59        1 ( 299/ 907- 352/ 973) -90.0 E49-E44 S05-S01
     13 1481  868 (S13W28 L=166)  1614    431        5 (1308/ 798-1614/ 912)  13.4 W16-W37 S17-S10
     14 1791  779 (S19W55 L=193)   708    167        0 (1728/ 734-1854/ 831)  31.0 W48-W61 S22-S16
     15 1625  758 (S20W40 L=178)   470    132        0 (1587/ 703-1669/ 818)  54.5 W37-W42 S23-S16
     16  306  720 (S17E53 L= 85)  1018    162        2 ( 252/ 673- 365/ 764) -36.9 E57-E47 S19-S13
     17  675  530 (S31E27 L=111)   344     78        0 ( 640/ 518- 724/ 547)   0.0 E30-E23 S32-S29
     18  502  403 (S39E48 L= 90)  1424    174        4 ( 457/ 319- 548/ 471)  25.5 E61-E39 S44-S34
     19  715  223 (S55E42 L= 96)   601     58        1 ( 691/ 197- 738/ 262)  36.9 E46-E36 S57-S51
     20  907  207 (S59E20 L=118)   614     44        0 ( 871/ 188- 941/ 226)   0.0 E25-E16 S60-S56
  

    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