Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1707 1608 (N18W69 L=104)  2648    239        1 (1608/1540-1790/1678) -53.1 W61-W77 N12-N24
      2 1484 1617 (N25W48 L= 84)  3618    565        4 (1248/1509-1719/1675) -30.1 W30-W62 N12-N31
      3  667 1574 (N45E10 L= 25)   273     48        1 ( 641/1555- 691/1600) -26.6 E12-E08 N43-N46
      4 1369 1498 (N21W34 L= 69)   284    126        0 (1309/1485-1425/1508) -23.2 W29-W36 N19-N22
      5 1736 1125 (S08W47 L= 82)  1447    301        2 (1676/1040-1781/1232)  59.0 W40-W50 S12-S01
      6  436 1129 (N22E34 L=  1)   617    142        1 ( 368/1076- 482/1162) -41.2 E39-E31 N18-N25
      7  890  861 (S03E11 L= 24)  2184    529        6 ( 704/ 680-1034/1001) -54.2 E20-E07 S15-N05
      8 1347  927 (S09W16 L= 52)   553     95        3 (1311/ 888-1374/ 979)  45.0 W13-W18 S11-S06
      9 1205  890 (S08W07 L= 43)   467    139        2 (1171/ 827-1227/ 955)  60.3 W03-W09 S11-S04
     10  363  902 (N11E44 L=352)   726    156        1 ( 303/ 867- 434/ 950) -31.0 E48-E38 N07-N14
     11 1258  920 (S08W11 L= 46)   266     33        1 (1235/ 895-1285/ 946)  45.0 W09-W12 S09-S06
     12 1454  667 (S28W18 L= 53)  1180    248        2 (1352/ 630-1561/ 721)  -7.1 W10-W26 S29-S23
     13  314  657 (S02E56 L=340)   381    143        0 ( 281/ 606- 362/ 718) -74.1 E57-E53 S06-N01
     14  577  672 (S07E35 L=  1)   325     40        2 ( 549/ 648- 604/ 695) -56.3 E36-E33 S08-S04
     15 1150  420 (S36E08 L= 27)  3541    691        9 ( 988/ 189-1257/ 686)  45.0 E32-W02 S49-S18
     16  550  598 (S10E39 L=356)   572    116        4 ( 502/ 560- 592/ 631) -51.3 E42-E36 S13-S08
     17  602  453 (S20E42 L=354)  1245    212        2 ( 546/ 380- 641/ 565)  35.5 E50-E35 S23-S13
     18  458  510 (S14E50 L=346)   355     77        1 ( 436/ 472- 473/ 548)  59.0 E52-E47 S16-S11
     19  442  383 (S21E60 L=335)  1567    183        2 ( 386/ 316- 504/ 432)   8.7 E78-E52 S24-S18
     20 1057  335 (S39E18 L= 18)   265     75        0 (1047/ 293-1068/ 374)  50.2 E20-E15 S42-S36
  

    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