Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  826 1868 (N41E52 L=347)  1403    110        0 ( 784/1808- 856/1909) -19.3 E63-E43 N36-N44
      2  403 1623 (N13E64 L=335)  2384    254        2 ( 356/1533- 465/1749) -53.1 E73-E58 N06-N22
      3 1181 1606 (N32E09 L= 30)   600    141        2 (1149/1560-1207/1690) -45.0 E14-E06 N29-N37
      4  783 1650 (N23E35 L=  4)   261     49        1 ( 756/1636- 815/1663)  26.6 E37-E32 N22-N24
      5  436 1535 (N08E54 L=345)  2519    313        2 ( 317/1451- 559/1632)  47.1 E62-E49 N01-N16
      6  556 1383 (N02E38 L=  1)   235     56        0 ( 535/1365- 588/1407) -11.3 E40-E35 N00-N02
      7 1128 1292 (N11E02 L= 37)   278    133        1 (1086/1234-1168/1342)  82.9 E03-W00 N07-N15
      8  223 1163 (S18E60 L=339)  1059    110        2 ( 169/1129- 265/1201)  20.0 E67-E55 S20-S15
      9 1766 1017 (N16W47 L= 86)   637    168        0 (1749/ 935-1783/1093) -66.0 W43-W49 N11-N20
     10  541  870 (S28E26 L= 13)   854    194        2 ( 458/ 821- 623/ 934)  45.0 E31-E20 S32-S22
     11 1363  646 (S16W32 L= 70)  1232    282        3 (1258/ 585-1465/ 729)  61.7 W27-W35 S22-S09
     12 1061  681 (S24W13 L= 51)   254    120        0 (1000/ 672-1120/ 693)  29.7 W09-W16 S26-S22
     13  849  648 (S32W01 L= 40)   497    151        0 ( 776/ 629- 925/ 667)  36.9 E03-W05 S35-S28
     14  932  508 (S38W12 L= 51)  1852    447        2 ( 767/ 423-1141/ 597)  52.3 W02-W21 S48-S26
     15 1200  202 (S47W56 L= 95)   654     66        2 (1177/ 168-1225/ 240) -15.9 W49-W63 S49-S45
  

    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