Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  483 1721 (N51E63 L=158)   822     39        0 ( 458/1698- 514/1743)  -7.1 E73-E56 N49-N53
      2 1021 1570 (N40W01 L=223)   931    207        4 ( 945/1511-1106/1638) -36.9 E05-W07 N35-N44
      3 1575 1467 (N30W44 L=266)   637    124        0 (1512/1426-1628/1497) -32.0 W39-W48 N27-N32
      4  181 1264 (N18E70 L=152)  3045    228        7 ( 145/1173- 213/1371)  90.0 E76-E65 N11-N24
      5 1546 1260 (N17W36 L=258)   329     85        0 (1505/1245-1595/1273)   0.0 W32-W39 N16-N17
      6  259 1177 (N13E56 L=165)  1046    154        3 ( 219/1105- 290/1252)  90.0 E60-E52 N08-N17
      7  648 1195 (N15E24 L=198)   297     63        1 ( 633/1159- 667/1236) -90.0 E25-E22 N12-N17
      8 1605 1105 (N07W39 L=260)   582    166        1 (1575/1033-1631/1180)  60.9 W36-W41 N02-N11
      9 1875 1126 (N06W67 L=288)   844     98        4 (1836/1090-1912/1164)  13.0 W60-W74 N04-N08
     10  453  846 (S07E38 L=183)  1441    283        3 ( 363/ 763- 543/ 952) -42.5 E45-E31 S12-N00
     11  288  792 (S11E54 L=168)   850    136        3 ( 238/ 756- 327/ 824) -23.2 E59-E49 S13-S08
     12  913  741 (S14E07 L=214)   540    198        1 ( 823/ 699- 969/ 800)  31.0 E13-E03 S16-S09
     13  311  666 (S19E55 L=167)  5224    479       16 ( 161/ 534- 432/ 799) -33.7 E71-E44 S27-S11
     14  415  762 (S12E42 L=179)   271     63        1 ( 393/ 740- 441/ 792) -56.3 E44-E40 S13-S10
     15 1784  710 (S19W58 L=280)   394     89        0 (1759/ 676-1811/ 742)  45.0 W56-W60 S21-S16
     16  527  615 (S22E36 L=186)  1102    195        1 ( 478/ 524- 586/ 695)  45.0 E42-E29 S28-S16
     17 1002  469 (S32E03 L=219)  2284    459        7 ( 875/ 317-1119/ 642)  53.1 E14-W05 S44-S20
     18 1191  582 (S25W10 L=232)   396    188        0 (1124/ 541-1280/ 637)  28.6 W05-W16 S27-S21
     19  491  386 (S39E50 L=172)   541     63        2 ( 471/ 350- 511/ 417)  36.9 E54-E45 S42-S36
     20  811  345 (S42E20 L=202)   786    102        2 ( 772/ 314- 855/ 384) -50.2 E23-E15 S45-S38
     21  594  252 (S52E52 L=170)   644     61        0 ( 577/ 221- 610/ 286)  32.5 E58-E46 S55-S48
     22  777  211 (S56E31 L=191)   463     32        1 ( 757/ 191- 797/ 233)  78.7 E34-E28 S58-S53
     23 1250  174 (S63W29 L=250)   645     73        0 (1233/ 138-1266/ 209) -40.6 W23-W37 S69-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