Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1044 1573 (N40W03 L=223)   791    203        0 ( 961/1516-1128/1639) -39.3 E03-W08 N35-N45
      2 1629 1454 (N29W49 L=269)  1173    252        1 (1527/1414-1742/1497) -17.5 W40-W59 N25-N32
      3  192 1260 (N18E68 L=152)  2455    187        6 ( 151/1187- 225/1353) -73.3 E74-E63 N13-N23
      4 1571 1264 (N17W38 L=258)   326     87        1 (1531/1245-1618/1277)   0.0 W34-W41 N15-N17
      5  273 1169 (N12E55 L=165)   941    138        3 ( 232/1106- 309/1234)  69.4 E59-E50 N08-N16
      6  674 1191 (N14E22 L=198)   244     59        1 ( 659/1160- 692/1225) -76.0 E23-E21 N12-N16
      7 1628 1117 (N08W41 L=261)   407    125        0 (1611/1067-1645/1178)  66.8 W39-W42 N04-N11
      8  476  846 (S07E36 L=184)  1061    250        4 ( 393/ 771- 567/ 937) -36.9 E42-E30 S11-S01
      9  279  829 (S08E54 L=166)   884    173        4 ( 254/ 760- 299/ 904) -90.0 E56-E51 S12-S03
     10  337  806 (S10E49 L=171)   540    128        2 ( 301/ 755- 370/ 863)  54.5 E52-E45 S13-S06
     11  932  740 (S14E06 L=214)   598    215        1 ( 824/ 695- 979/ 804)  35.0 E13-E03 S16-S09
     12  317  662 (S19E54 L=166)  4287    469       10 ( 174/ 531- 450/ 797) -34.8 E69-E44 S27-S11
     13  355  705 (S16E49 L=171)   408     46        1 ( 334/ 680- 377/ 727) -45.0 E50-E47 S17-S14
     14  548  612 (S22E34 L=186)  1046    205        1 ( 498/ 520- 599/ 690)  47.5 E40-E29 S28-S16
     15 1096  584 (S24W04 L=224)   724    187        1 (1051/ 511-1150/ 646)  56.3 W00-W07 S29-S20
     16 1197  571 (S25W11 L=231)   330    123        0 (1149/ 535-1255/ 592)  23.2 W07-W14 S27-S24
     17  505  381 (S40E48 L=172)   462     61        0 ( 493/ 341- 516/ 417)  54.5 E51-E45 S43-S36
     18  898  350 (S42E12 L=208)  1741    249        3 ( 798/ 313-1001/ 406)   6.7 E20-E03 S45-S37
     19 1259  176 (S63W29 L=249)   815     74        0 (1242/ 136-1274/ 213) -40.9 W23-W41 S70-S57
  

    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