Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  888 1430 (N29E10 L=240)   241     80        0 ( 851/1409- 931/1450)  -9.5 E12-E06 N27-N30
      2  580 1270 (N18E30 L=220)   735    139        2 ( 542/1210- 624/1321) -74.1 E32-E27 N14-N21
      3 1132 1277 (N19W07 L=257)   303     60        1 (1096/1259-1166/1295) -21.8 W04-W09 N18-N20
      4 1292 1176 (N13W17 L=267)   406    145        0 (1237/1132-1344/1242)  35.5 W13-W20 N10-N16
      5 1432 1205 (N15W27 L=276)   213     68        0 (1411/1171-1448/1241) -76.0 W25-W27 N12-N16
      6 1148 1165 (N12W08 L=258)   310    116        0 (1113/1128-1207/1213) -39.8 W05-W11 N09-N15
      7  320 1190 (N12E50 L=200)   372    129        0 ( 273/1157- 352/1211) -14.0 E55-E47 N09-N12
      8 1794 1098 (N07W56 L=306)   459     84        0 (1779/1044-1809/1136) -80.5 W54-W57 N03-N09
      9  209  976 (S02E61 L=189)  1474    251        4 ( 148/ 948- 266/1019)   7.1 E70-E54 S03-N01
     10  595  943 (S02E27 L=222)   390    139        0 ( 558/ 893- 646/ 986)  45.0 E29-E23 S05-N00
     11 1186  843 (S08W10 L=260)   228     95        0 (1169/ 803-1214/ 875) -78.7 W09-W11 S10-S05
     12  894  849 (S08E08 L=242)   207     30        0 ( 872/ 835- 920/ 867) -33.7 E09-E06 S08-S06
     13  792  769 (S13E15 L=235)   511    150        0 ( 738/ 729- 868/ 808)  32.0 E18-E09 S15-S10
     14 1279  765 (S13W16 L=266)   211     38        0 (1261/ 739-1295/ 791) -90.0 W15-W17 S14-S10
     15 1592  702 (S17W39 L=289)  1416    136        5 (1546/ 590-1635/ 768)  90.0 W35-W42 S24-S12
     16  444  693 (S19E40 L=210)   361     81        0 ( 415/ 657- 476/ 734) -45.0 E42-E38 S20-S16
     17 1170  643 (S21W10 L=260)   409     98        1 (1128/ 610-1211/ 677)  45.0 W07-W12 S22-S18
     18  893  579 (S25E09 L=241)   257     94        0 ( 868/ 543- 937/ 608)  38.7 E10-E05 S27-S23
     19  645  553 (S28E27 L=223)   354     82        1 ( 607/ 534- 683/ 578)  26.6 E29-E23 S28-S25
     20 1439  544 (S28W30 L=280)   270     76        0 (1397/ 532-1472/ 560)   9.5 W26-W32 S28-S26
     21  896  488 (S32E09 L=241)   300     57        0 ( 876/ 464- 926/ 520) -53.1 E10-E06 S33-S29
     22 1240  486 (S32W16 L=266)   275     60        0 (1212/ 467-1265/ 511)  53.1 W14-W17 S33-S29
  

    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