Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1562 1619 (N34W45 L=167)   998    122        1 (1512/1580-1613/1652) -35.5 W40-W48 N30-N36
      2  756 1561 (N32E17 L=105)   854    220        1 ( 704/1464- 819/1642) -55.3 E21-E11 N25-N38
      3 1037 1541 (N29W03 L=125)   796    280        2 ( 928/1485-1178/1591) -17.4 E04-W12 N25-N33
      4  234 1508 (N32E68 L= 54)   884     69        0 ( 198/1489- 268/1523)  -3.6 E78-E62 N30-N33
      5  701 1436 (N24E20 L=102)   212     61        0 ( 668/1424- 738/1451)  14.0 E21-E17 N23-N24
      6 1866 1380 (N17W68 L=190)   969    115        3 (1835/1337-1901/1404)  32.0 W63-W75 N14-N19
      7  921 1321 (N15E05 L=117)   370    159        1 ( 871/1259- 957/1384) -58.0 E08-E03 N11-N19
      8 1293 1332 (N15W18 L=140)   238     64        0 (1262/1317-1329/1347)   0.0 W15-W20 N14-N15
      9  898 1215 (N09E07 L=115)   222    111        0 ( 882/1165- 914/1276)  80.5 E07-E05 N06-N12
     10 1786 1113 (N01W52 L=174)   792    195        0 (1728/1042-1855/1153)  18.4 W46-W59 S03-N03
     11 1900 1089 (S00W65 L=187)   796     51        0 (1856/1012-1926/1133) -50.2 W59-W68 S04-N02
     12 1799  991 (S06W53 L=175)  1021    137        2 (1745/ 936-1847/1049) -49.4 W48-W58 S09-S02
     13  471  880 (S09E36 L= 86)  1418    323        4 ( 402/ 813- 599/ 991) -39.8 E40-E27 S12-S01
     14 1682  848 (S15W43 L=165)  2287    408        6 (1530/ 757-1801/ 927)  19.3 W32-W54 S20-S10
     15  251  778 (S13E56 L= 66)  1729    374        3 ( 130/ 632- 331/ 894) -52.6 E69-E50 S22-S05
     16  153  787 (S12E69 L= 53)   810    102        0 ( 135/ 742- 177/ 843) -71.6 E71-E66 S14-S08
     17 1749  683 (S25W53 L=175)   758    201        0 (1676/ 613-1813/ 758)  42.0 W47-W58 S29-S20
     18 1050  644 (S26W00 L=122)   367    113        1 (1010/ 601-1079/ 701)  56.3 E02-W02 S28-S22
     19  249  610 (S23E64 L= 58)   858     80        3 ( 210/ 589- 291/ 633)  -5.2 E70-E59 S25-S21
     20  614  378 (S42E38 L= 84)  1700    308        3 ( 511/ 268- 707/ 494)  23.2 E61-E26 S49-S33
     21  836  248 (S54E24 L= 97)   450     71        0 ( 795/ 227- 870/ 266) -26.6 E28-E21 S56-S52
     22  961  212 (S59E13 L=109)   329     47        1 ( 942/ 189- 976/ 247)  56.3 E15-E10 S61-S55
     23 1025  205 (S60E06 L=116)   649     68        1 ( 989/ 177-1070/ 229)  16.7 E10-W00 S63-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