Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  772 1622 (N35E29 L= 78)  1308    313        4 ( 732/1507- 811/1723) -53.7 E37-E24 N26-N41
      2 1307 1631 (N45W12 L=119)   356     70        0 (1291/1598-1325/1659) -63.4 W10-W14 N42-N47
      3 1638 1580 (N47W45 L=152)   839    201        0 (1592/1532-1664/1623)  36.0 W38-W49 N42-N50
      4  705 1467 (N23E28 L= 79)   299     37        0 ( 680/1448- 726/1492)  56.3 E29-E26 N21-N24
      5  763 1353 (N17E21 L= 86)   435    177        0 ( 696/1315- 799/1419)  74.1 E25-E18 N13-N20
      6  362 1248 (N05E48 L= 59)   425    101        2 ( 326/1221- 405/1272)  26.6 E51-E44 N02-N06
      7  921 1182 (N08E08 L= 98)   232     43        1 ( 898/1157- 940/1212)  76.0 E09-E06 N06-N10
      8 1407 1166 (N14W22 L=129)   401    134        1 (1353/1126-1441/1206)  45.0 W18-W24 N10-N16
      9 1345 1103 (N09W19 L=126)   256     50        0 (1316/1083-1376/1119)   0.0 W16-W20 N08-N10
     10  396  965 (S12E41 L= 66)   272    104        0 ( 386/ 915- 409/1021) -80.5 E41-E39 S14-S08
     11  364  840 (S20E43 L= 64)   336    101        1 ( 329/ 816- 399/ 868)  33.7 E45-E39 S22-S17
     12 1013  831 (S12W02 L=109)   247     96        0 ( 970/ 814-1067/ 854) -11.3 W00-W05 S12-S10
     13  235  744 (S28E56 L= 51)   425    173        1 ( 199/ 726- 275/ 768)  18.4 E60-E51 S29-S26
     14 1407  709 (S14W29 L=136)   572    104        1 (1367/ 664-1434/ 748) -33.7 W25-W31 S16-S11
     15 1762  694 (S10W59 L=166)   401     52        0 (1739/ 664-1787/ 725)  53.1 W56-W61 S11-S07
  

    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