Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1003 1419 (N15E12 L=158)   206     42        1 ( 983/1392-1024/1444) -18.4 E13-E10 N12-N15
      2  545 1422 (N04E40 L=131)   320     73        1 ( 521/1393- 580/1441)  26.6 E41-E37 N01-N04
      3 1354 1316 (N19W11 L=181)   405    182        1 (1283/1250-1426/1348)  -5.2 W05-W16 N16-N19
      4  316 1217 (S13E51 L=120)   318    159        0 ( 282/1179- 370/1258) -11.3 E54-E44 S13-S10
      5 1265 1106 (N04W11 L=181)   336    112        1 (1213/1090-1330/1125)  15.9 W07-W14 N02-N05
      6  508  905 (S27E29 L=142)  1237    384        1 ( 381/ 825- 640/1052)  51.7 E37-E21 S34-S15
      7  891  853 (S20E03 L=168)   196     36        0 ( 863/ 838- 917/ 869)  33.7 E04-E01 S20-S18
      8 1487  663 (S13W38 L=208)   382    188        0 (1430/ 604-1517/ 723) -18.4 W32-W41 S15-S10
      9 1642  689 (S06W48 L=218)   853    228        2 (1551/ 642-1709/ 717)  28.6 W41-W54 S10-S04
     10 1670  561 (S12W57 L=227)   539     97        2 (1640/ 534-1706/ 591)  18.4 W53-W60 S13-S10
     11 1024  500 (S36W17 L=188)  1129    218        3 ( 919/ 432-1116/ 573)  -3.2 W08-W26 S38-S33
     12 1351  540 (S23W35 L=205)   370    113        1 (1286/ 518-1398/ 571)  56.3 W31-W37 S26-S20
     13 1300  446 (S30W37 L=207)   345     95        0 (1267/ 417-1330/ 486) -15.9 W32-W39 S31-S28
     14 1524  346 (S28W59 L=229)   609    169        0 (1490/ 324-1568/ 381)   0.0 W53-W63 S28-S26
  

    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