Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1153 1658 (N38W30 L=157)   810    136        1 (1130/1602-1178/1711)  49.4 W27-W34 N33-N41
      2 1527 1660 (N25W55 L=182)  2013    210        3 (1435/1616-1605/1695) -32.5 W49-W61 N21-N29
      3  669 1309 (N31E14 L=112)  1058    441        1 ( 497/1282- 895/1343) -20.3 E26-W01 N26-N36
      4 1662 1227 (S02W44 L=171)  1547    310        7 (1599/1148-1746/1288)  -4.1 W37-W51 S05-N01
      5 1778 1199 (S07W53 L=180)   470     85        1 (1745/1174-1805/1228)   9.5 W49-W56 S08-S05
      6  963 1152 (N14E00 L=126)   376     54        1 ( 935/1123- 999/1186) -76.0 E01-W01 N12-N16
      7 1794 1040 (S16W50 L=176)  1069    181        1 (1735/ 989-1838/1093)  24.0 W44-W55 S18-S14
      8 1570  942 (S14W30 L=156)   821    197        0 (1547/ 846-1619/1037)  52.1 W27-W35 S20-S09
      9 1458 1003 (S08W24 L=151)   230     53        1 (1436/ 970-1476/1032)  76.0 W22-W25 S09-S05
     10 1277  761 (S16W07 L=134)   483     94        2 (1229/ 727-1328/ 795) -56.3 W04-W09 S19-S13
     11 1332  599 (S28W07 L=133)   240     87        0 (1309/ 558-1354/ 644)  45.0 W04-W08 S29-S24
     12  815  490 (S20E28 L= 99)   246     65        1 ( 795/ 463- 835/ 520)  53.1 E29-E26 S21-S17
     13  958  405 (S29E23 L=104)   709    167        1 ( 933/ 338- 981/ 480)  65.6 E25-E20 S34-S23
     14  483  363 (S20E58 L= 68)   571    103        1 ( 461/ 336- 515/ 390)   8.1 E61-E54 S21-S18
     15 1150  256 (S47E19 L=107)  1328    182        1 (1099/ 209-1186/ 315)  18.4 E25-E13 S51-S41
  

    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