Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  877 1814 (N52E33 L=223)   604     83        1 ( 833/1792- 921/1831)  33.7 E36-E29 N50-N54
      2  939 1525 (N30E14 L=242)   220     94        0 ( 902/1488- 975/1543) -18.4 E16-E10 N28-N31
      3  268 1504 (N19E69 L=187)   730    160        1 ( 244/1489- 302/1526)   8.1 E72-E64 N17-N20
      4  478 1451 (N18E45 L=211)   485    128        1 ( 453/1397- 499/1493) -35.5 E48-E41 N15-N20
      5 1030 1323 (N18E04 L=252)   330    164        1 ( 998/1257-1048/1390) -69.4 E07-E02 N14-N22
      6  626 1267 (N09E29 L=227)   439    121        3 ( 595/1224- 657/1320) -71.6 E31-E26 N06-N12
      7 1380 1228 (N17W20 L=275)   325    110        1 (1325/1185-1418/1259) -23.2 W15-W22 N15-N19
      8 1108 1209 (N13W03 L=258)   493    195        1 (1003/1187-1195/1243)  -4.8 E04-W08 N11-N14
      9 1211  967 (S01W12 L=268)  1165    301        1 (1144/ 850-1299/1097) -65.2 W07-W19 S06-N07
     10  303  996 (S11E49 L=206)   790    132        2 ( 285/ 929- 319/1070) -83.7 E51-E47 S15-S06
     11  226  890 (S19E56 L=199)   511    128        0 ( 198/ 846- 261/ 932) -45.0 E59-E52 S21-S16
     12  679  907 (S12E20 L=236)   666    117        2 ( 606/ 884- 776/ 923)  15.3 E24-E13 S13-S10
     13  960  844 (S11E01 L=254)   645    246        0 ( 899/ 756-1058/ 907)  53.1 E04-W04 S17-S07
     14 1238  651 (S20W19 L=275)  1632    511        5 (1053/ 501-1363/ 813)  63.4 W10-W24 S32-S08
     15 1012  768 (S15W03 L=258)   274     79        2 ( 967/ 745-1065/ 790)   9.5 W00-W06 S17-S14
  

    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