Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1041 1752 (N52W30 L=290)   624    105        1 (1003/1717-1082/1786)   4.8 W25-W37 N48-N53
      2  929 1682 (N50W16 L=275)   331     47        0 ( 899/1660- 956/1698) -53.1 W13-W17 N48-N52
      3  547 1359 (N38E25 L=234)  1106    212        2 ( 460/1290- 639/1398) -31.0 E33-E18 N32-N41
      4 1053 1333 (N24W10 L=269)  1199    381        3 ( 911/1303-1236/1363) -18.4 W00-W21 N20-N27
      5 1763 1137 (S06W51 L=311)  1063    136        4 (1730/1076-1792/1199)  35.5 W47-W55 S09-S02
      6  570 1077 (N20E27 L=233)   940    252        0 ( 476/ 993- 662/1139) -47.5 E33-E22 N13-N25
      7  192  969 (N20E64 L=196)  1273    136        3 ( 150/ 909- 242/1016) -41.6 E70-E57 N15-N23
      8 1670  624 (S35W35 L=295)  6508    903        9 (1448/ 380-1859/ 977)  31.0 W13-W58 S48-S18
      9 1289  904 (S06W12 L=272)   284     69        0 (1269/ 869-1313/ 946) -90.0 W11-W13 S08-S03
     10 1234  865 (S07W08 L=268)   254    107        1 (1187/ 855-1289/ 877) -26.6 W05-W11 S08-S05
     11 1243  635 (S21W03 L=263)   695    274        1 (1160/ 534-1290/ 746)  45.0 E04-W07 S25-S14
     12 1347  312 (S49W02 L=262)   457     56        1 (1327/ 281-1370/ 344)  51.3 W00-W04 S51-S46
     13 1266  263 (S51E07 L=253)   703     80        2 (1227/ 240-1315/ 287) -39.8 E09-E02 S53-S47
     14  940  242 (S41E32 L=227)   539     70        1 ( 899/ 222- 980/ 269)  -7.1 E36-E28 S42-S39
     15 1156  212 (S52E19 L=240)   577     62        0 (1123/ 191-1196/ 233)   6.3 E23-E14 S53-S50
  

    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