Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1784 (N55W65 L=162)   983     63        1 (1456/1748-1501/1810)  11.8 W56-W80 N51-N56
      2  602 1680 (N50E41 L= 57)   486     59        0 ( 576/1655- 628/1707)  76.0 E43-E38 N47-N52
      3 1523 1601 (N39W47 L=144)   646    160        0 (1436/1580-1582/1616)  -7.1 W37-W53 N37-N40
      4  895 1435 (N31E08 L= 89)  2761    640        2 ( 643/1273-1119/1559) -29.7 E29-W06 N19-N39
      5 1214 1371 (N25W14 L=111)   259    114        0 (1165/1339-1256/1394) -26.6 W10-W16 N23-N27
      6 1436 1275 (N18W28 L=126)   636    215        0 (1408/1199-1494/1350)  56.3 W26-W34 N13-N22
      7  634 1111 (N10E25 L= 72)   250     59        1 ( 617/1077- 656/1146) -76.0 E26-E23 N08-N12
      8 1235 1057 (N06W13 L=111)   554    129        0 (1189/1021-1305/1105)  29.7 W10-W17 N03-N08
      9 1052  693 (S17W01 L= 98)  1138    205        2 ( 997/ 597-1108/ 768)  59.0 E02-W04 S22-S11
     10 1683  528 (S32W54 L=151)  7031    670       10 (1434/ 378-1855/ 739)  31.7 W32-W72 S42-S18
     11 1302  467 (S34W19 L=116)  1618    285        2 (1205/ 386-1407/ 550)  38.2 W12-W26 S39-S27
     12  352  512 (S29E59 L= 39)   677     94        0 ( 316/ 479- 385/ 546)  19.7 E67-E52 S31-S26
     13  829  457 (S33E16 L= 81)   581    149        0 ( 775/ 416- 895/ 511)  32.5 E21-E10 S35-S28
     14 1171  367 (S41W10 L=107)   450     58        1 (1145/ 340-1200/ 393) -59.0 W07-W12 S43-S38
  

    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