Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  345 1527 (N13E62 L=350)  2094    399        3 ( 319/1445- 399/1619) -29.1 E71-E53 N08-N18
      2  828 1474 (N20E23 L= 29)   777    176        3 ( 791/1413- 883/1535) -29.1 E26-E17 N15-N23
      3 1282 1360 (N23W08 L= 60)   647    189        2 (1235/1264-1328/1440) -45.0 W03-W12 N18-N27
      4 1685 1390 (N36W39 L= 91)   873    140        4 (1631/1347-1728/1422)   0.0 W33-W43 N32-N38
      5  841 1306 (N10E17 L= 35)   510     98        1 ( 805/1270- 878/1340) -31.0 E19-E14 N08-N12
      6  259 1220 (S07E57 L=355)  2181    353        2 ( 163/1132- 363/1295)  39.1 E66-E49 S13-N00
      7 1831 1249 (N31W53 L=105)   949    161        1 (1790/1222-1876/1281)  -6.3 W49-W58 N29-N32
      8 1598 1209 (N22W32 L= 84)   355    141        0 (1554/1168-1635/1234)  51.3 W29-W35 N18-N23
      9  518 1086 (S10E32 L= 20)   371    124        0 ( 466/1064- 572/1104)  15.9 E36-E28 S11-S07
     10 1906  941 (N14W68 L=120)  1491    185        2 (1884/ 865-1925/1028) -63.4 W63-W71 N08-N18
     11  966  674 (S24W05 L= 57)   407    113        1 ( 903/ 658-1026/ 690)  20.6 W00-W08 S26-S22
     12 1477  289 (S35W57 L=109)   543     63        0 (1451/ 271-1501/ 309)  56.3 W54-W59 S36-S33
     13 1387  270 (S39W52 L=104)   473     55        1 (1365/ 249-1406/ 293)  63.4 W50-W54 S40-S37
  

    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