Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  680 1788 (N36E50 L= 94)   907    193        0 ( 645/1729- 726/1837) -83.7 E54-E47 N30-N40
      2 1071 1731 (N43E19 L=125)  1042    243        1 (1040/1665-1109/1822) -47.3 E26-E14 N37-N50
      3  668 1532 (N18E36 L=108)   802    205        0 ( 619/1444- 737/1627) -85.6 E37-E33 N12-N25
      4 1550 1607 (N49W25 L=168)   366     78        0 (1521/1592-1581/1621)  23.2 W21-W28 N47-N50
      5  483 1543 (N15E50 L= 94)  1685    358        3 ( 393/1456- 546/1589) -10.6 E58-E42 N10-N18
      6  812 1440 (N16E23 L=121)   269     95        0 ( 769/1402- 836/1477)  80.5 E24-E22 N12-N18
      7  912 1374 (N14E15 L=129)   519    194        0 ( 864/1325- 960/1404)  21.8 E18-E12 N11-N16
      8  766 1308 (N07E22 L=122)   263     52        0 ( 750/1273- 782/1342) -53.1 E23-E20 N04-N08
      9 1023 1282 (N11E06 L=138)   193     20        0 (1007/1262-1041/1303) -45.0 E07-E05 N10-N12
     10 1151 1041 (N01W07 L=151)   299     60        1 (1122/1018-1178/1065) -14.0 W04-W08 N00-N02
     11 1583  846 (N01W38 L=182)   236     77        0 (1548/ 808-1613/ 881)  68.2 W37-W39 S02-N03
     12  958  817 (S17W01 L=145)   281     57        0 ( 927/ 783- 982/ 840) -33.7 E01-W02 S18-S15
     13  383  707 (S38E38 L=106)   287     68        0 ( 359/ 686- 409/ 731)  38.7 E40-E35 S39-S35
     14 1744  516 (S13W68 L=212)  1366    182        1 (1676/ 457-1813/ 591)  50.7 W63-W74 S18-S07
     15 1150  360 (S40W30 L=174)  1076    252        1 (1041/ 334-1281/ 388)  15.5 W21-W39 S42-S35
  

    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