Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  982 1649 (N33E13 L=311)   241     82        0 ( 938/1622-1010/1675) -26.6 E16-E10 N31-N34
      2  834 1491 (N20E19 L=305)   477    104        0 ( 812/1433- 854/1547) -54.5 E21-E16 N16-N23
      3 1500 1469 (N29W26 L=350)   267     43        1 (1476/1443-1520/1488) -63.4 W24-W27 N27-N30
      4 1444 1308 (N17W22 L=346)   840    199        2 (1364/1239-1513/1387) -28.6 W16-W27 N13-N21
      5 1829 1279 (N23W56 L= 20)   845     85        1 (1807/1246-1855/1325) -45.0 W53-W59 N20-N25
      6 1767 1248 (N19W48 L= 12)   400     72        1 (1748/1208-1789/1286) -53.1 W46-W50 N17-N21
      7  145 1046 (S13E67 L=256)  1310    154        4 ( 106/ 991- 178/1088)  35.5 E74-E62 S15-S10
      8  353  953 (S17E44 L=279)   625    185        2 ( 288/ 912- 455/ 979)  15.9 E50-E36 S20-S14
      9  151  846 (S25E69 L=255)   664     95        0 ( 127/ 808- 185/ 885)  20.0 E74-E62 S26-S22
     10  992  689 (S26W03 L=326)   790    290        0 ( 884/ 603-1052/ 807)  65.0 E03-W05 S33-S18
     11 1394  613 (S25W31 L=355)   249     64        0 (1359/ 589-1426/ 638)  53.1 W29-W32 S26-S22
     12 1482  413 (S35W48 L= 12)   467     70        0 (1448/ 389-1510/ 441)  63.4 W45-W49 S37-S33
     13  509  322 (S61E48 L=275)   740     60        1 ( 480/ 299- 540/ 343)  12.5 E58-E40 S63-S58
  

    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